! name: ajt07
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d

R=(0.055*0.055+(a/2-0.12)*(a/2-0.12))/0.11

resol 120

prism_   18, 0.045, 
    -a/2, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    -a/2, b, 15,
    -a/2, 0, -1,

    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 79,
     0, 0.720-R, 900,
    -a/2+0.12, 0.665, 3015,
    -a/2+0.12, 0.16, -1,
    
    -a/2+0.12, 0.785, 79,
     0, 0.84-R, 900,
     a/2-0.12, 0.785, 3015,
     a/2-0.12, b-0.175,79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1


addz -0.005

R1=R-0.015

prism_ 12, 0.055,
    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 79,
     0, 0.720-R, 900,
    -a/2+0.12, 0.665, 3015,
    -a/2+0.12, 0.16, -1,

    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, 0.72-R, 900,
    -a/2+0.135,0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.175, -1

R2=R+0.015
prism_ 14, 0.055,
    -a/2+0.12, 0.785, 79,
     0, 0.84-R, 900,
     a/2-0.12, 0.785, 3015,
     a/2-0.12, b-0.175,79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1,

    -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 79,
     0, 0.84-R, 900,
     a/2-0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 3015,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
     -a/2+0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
     -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), -1


del 1
addz 0.0125

R3=R-0.05

 prism_ 12, 0.02,

    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, 0.72-R, 900,
    -a/2+0.135,0.72-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.175, -1,

    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 79,
     0, 0.72-R, 900,
    -a/2+0.17,0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 3015,
    -a/2+0.17, 0.21, -1
 

R4=R+0.05

prism_ 14, 0.02,

    -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 79,
     0, 0.84-R, 900,
     a/2-0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), 3015,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
     -a/2+0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
     -a/2+0.135, 0.84-R+(R2*cos(ASN((a/2-0.135)/R2))), -1,

    -a/2+0.17, 0.84-R+(R4*cos(ASN((a/2-0.17)/R4))), 79,
     0, 0.84-R, 900,
     a/2-0.17, 0.84-R+(R4*cos(ASN((a/2-0.17)/R4))), 3015,
     a/2-0.17, b-0.12-R+(R3*cos(ASN((a/2-0.17)/R3))), 79,
     0, b-0.12-R, 900,
     -a/2+0.17, b-0.12-R+(R3*cos(ASN((a/2-0.17)/R3))), 3015,
     -a/2+0.17, 0.84-R+(R4*cos(ASN((a/2-0.17)/R4))), -1
 

addz -0.0125
prism_   6, 0.045,

    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 79,
     0, 0.72-R, 900,
    -a/2+0.17,0.72-R+(R3*cos(ASN((a/2-0.17)/R3))), 3015,
    -a/2+0.17, 0.21, -1

prism_   7, 0.045,


    -a/2+0.17, 0.84-R+(R4*cos(ASN((a/2-0.17)/R4))), 79,
     0, 0.84-R, 900,
     a/2-0.17, 0.84-R+(R4*cos(ASN((a/2-0.17)/R4))), 3015,
     a/2-0.17, b-0.12-R+(R3*cos(ASN((a/2-0.17)/R3))), 79,
     0, b-0.12-R, 900,
     -a/2+0.17, b-0.12-R+(R3*cos(ASN((a/2-0.17)/R3))), 3015,
     -a/2+0.17, 0.84-R+(R4*cos(ASN((a/2-0.17)/R4))), -1   

del 2
addz 0.045
addy 0.95
addx -a/2+0.06

call "handle_1" mat2

addz -0.045
mulz -1

call "handle_1" mat2
